home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
serien
/
purity
/
nr.40
/
memsize
/
memsize.p
< prev
next >
Wrap
Text File
|
1994-12-13
|
1KB
|
37 lines
program MemSize;
var s,i,j,k:integer;
pa,pb,pc,l:string;
a:real;
n:short;
f:boolean;
{$I "Include:Exec/Memory.i"}
{$I "Include:Utils/Parameters.i"}
{$I "Include:Utils/StringLib.i"}
{$I "Include:Libraries/Dos.i"}
begin
pa:=" ";pb:=" ";a:=0;
pc:=" ";
getparam(1,pa);
if not strieq(pa,"MIN") and not strieq(pa,"MAX") then begin
writeln("\e[1;4;33mM e m S i z e V1.1 \e[22;33;3mby Stefan Grad of GPD \e[23m - FREEWARE - © 20-11-94\e[0m");
writeln("\e[3mUSAGE: \e[0mMemSize <MIN|MAX> <Size> <ProgramName>");
writeln("Size = Min/max amount of memory (bytes) necessary to/not to run <ProgramName>");
end;
if strieq(pa,"MIN") or strieq(pa,"MAX") then begin
getparam(2,pb);
for i:=0 to 7 do begin
for j:=0 to 9 do begin
k:=inttostr(l,j);
if pb[i]=l[0] then a:=a*10+j;
end;
end;
getparam(3,pc);
s:=availmem(1);
if strieq(pa,"MIN") and (s>a) then f:=execute(pc,nil,nil);
if strieq(pa,"MAX") and (s<a) then f:=execute(pc,nil,nil);
end;
end.